(DEFPROP !EXCLUDE T SPECIAL) 

(DEFPROP !REPLACE T SPECIAL) 

(DEFPROP !XEXPRS T SPECIAL) 

(DEFPROP !RULEVARS T SPECIAL) 

(DEFPROP !VARLIST T SPECIAL) 

(DEFPROP QUESTION
         (LAMBDA &ARGS
          (PROG (&VAL &&1 &1 &&2 &2 &&3 &3 &&4 &4)
                (TEM_DEC &ARGS)
                (TEM_ATOM HOW)
                (TEM_LOOP &VAL)
                (TEM_ALT ((STRM_CALL ADV &VAL)
                          (TEM_COLON1 &1)
                          (TEM_LOOP &VAL)
                          (STRM_CALL DO &VAL)
                          (TEM_COLON1 &2)
                          (TEM_LOOP &VAL)
                          (STRM_CALL SUBJECT &VAL)
                          (TEM_COLON1 &3)
                          (TEM_LOOP &VAL)
                          (STRM_CALL ACTION &VAL)
                          (TEM_COLON1 &4)
                          (PCALL (QUOTE OPT) T NIL)
                          (TEM_REC 1)
                          (STORE &VAL (LOOKUP (COLON &1) (SS (COLON &3) (COLON &4) X)))
                          (RETURN &VAL))
                         ((STRM_CALL ADJ &VAL)
                          (TEM_COLON1 &1)
                          (TEM_LOOP &VAL)
                          (STRM_CALL LINKVERB &VAL)
                          (TEM_COLON1 &2)
                          (TEM_LOOP &VAL)
                          (STRM_CALL SUBJECT &VAL)
                          (TEM_COLON1 &3)
                          (TEM_REC 1)
                          (STORE &VAL (GET (COLON &3) (QUOTE A)))
                          (RETURN &VAL)))))
         XEXPR)

(DEFPROP LAST
         (LAMBDA &ARGS
          (PROG (&VAL &&2 &2)
                (TEM_DEC &ARGS)
                (TEM_IN LIST)
                (TEM_LOOP (TEM_IGNORE))
                (TEM_COLON1 &2)
                (TEM_OUT LIST)
                (TEM_REC 1)
                (STORE &VAL (COLON &2))
                (RETURN &VAL)))
         XEXPR)

(CSYM G0433)